home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / DAC23A.BAS < prev    next >
BASIC Source File  |  1991-04-03  |  640b  |  40 lines
  1. MODE23             :'MODE 23 DAC PROGRAMMING EXAMPLE#2 BY N. FAVARO 1991
  2. COORDINATE WINDOW
  3.  
  4. RANDOM
  5. R=RND(63):G=RND(64):B=RND(63)
  6. "R"
  7. PALETTE R,-2    'R
  8. PALETTE G,-3    'G
  9. PALETTE B,-4    'B
  10. PALETTE C,-1
  11.  
  12. IF MAYBE OR  MAYBE M=RND(3)-1
  13.  
  14. LONGIF M=0
  15.  LONGIF RF=0
  16.   R=R+1:IFR=64  THEN R=63 :RF=1
  17.  XELSE
  18.   R=R-1:IFR=-1  THEN R=0  :RF=0
  19.  ENDIF
  20. ENDIF
  21.  
  22. LONGIF M=1
  23.  LONGIF GF=0
  24.   G=G+1:IFG=64  THEN G=63 :GF=1
  25.  XELSE
  26.   G=G-1:IFG=-1  THEN G=0  :GF=0
  27.  ENDIF
  28. ENDIF
  29.  
  30. LONGIF M=2
  31.  LONGIF BF=0
  32.   B=B+1:IFB=64  THEN B=63 :BF=1
  33.  XELSE
  34.   B=B-1:IFB=-1  THEN B=0  :BF=0
  35.  ENDIF
  36. ENDIF
  37.  
  38. IFINKEY$<>""THEN END=256
  39. GOTO"R"
  40.